ATC.UNF[MRS,LSP]3 - www.SailDart.org

perm filename ATC.UNF[MRS,LSP]3 blob sn#652706 filedate 1982-04-13 generic text, type T, neo UTF8
'(THIS IS THE UNFASL FOR ((DSK (MRS LSP)) ATC LSP)) 
'(ASSEMBLED BY FASLAP /392) 
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117) 

;COMPILED ON APRIL 13, 1982, AT 12:25 PM

;Loading DEFSTRUCT 233
'↑↓-TERM 
'LT-QUANTIFIER 
'ROLELINK 
'PFC-FORMULA 
'ROLEXENTRY 
'LT-λ-EXPR 
'LT-λ-PREFIX 
'PATHKEYLIST 
	(COMMENT **FASL** 0. (LAP |*DEFUN MACRO| SUBR)) 
	(COMMENT **FASL** 181. (LAP |E:DO MACRO| SUBR)) 
	(COMMENT **FASL** 209. (LAP |E:VAR MACRO| SUBR)) 
	(COMMENT **FASL** 241. (LAP E:SETLINE SUBR)) 
	(COMMENT **FASL** 279. (LAP |CONSP MACRO| SUBR)) 
	(COMMENT **FASL** 308. (LAP |LAMBDA-OPR MACRO| SUBR)) 
	(COMMENT **FASL** 337. (LAP |ADDCONC MACRO| SUBR)) 
	(COMMENT **FASL** 375. (LAP |ENDCONC MACRO| SUBR)) 
	(COMMENT **FASL** 424. (LAP |ENDADD MACRO| SUBR)) 
	(COMMENT **FASL** 479. (LAP |RASSQ MACRO| SUBR)) 
	(COMMENT **FASL** 528. (LAP |EDITXDO MACRO| SUBR)) 
	(COMMENT **FASL** 582. (LAP |EDITDO MACRO| SUBR)) 
	(COMMENT **FASL** 620. (LAP |COPYLIST MACRO| SUBR)) 
	(COMMENT **FASL** 646. (LAP |BUTLAST MACRO| SUBR)) 
	(COMMENT **FASL** 677. (LAP |REPEAT MACRO| SUBR)) 
	(COMMENT **FASL** 717. (LAP |SETF* MACRO| SUBR)) 
	(COMMENT **FASL** 753. (LAP |SOME MACRO| SUBR)) 
	(COMMENT **FASL** 818. (LAP |SUBSET MACRO| SUBR)) 
	(COMMENT **FASL** 868. (LAP GOOD-NREVERSE SUBR)) 
	(COMMENT **FASL** 925. (LAP NSUBLIS SUBR)) 
	(COMMENT **FASL** 984. (LAP |HUNKQUANTP MACRO| SUBR)) 
	(COMMENT **FASL** 1019. (LAP QNSUBLIS SUBR)) 
	(COMMENT **FASL** 1113. (LAP |CONDCARPUSH MACRO| SUBR)) 
	(COMMENT **FASL** 1175. (LAP |WRITE MACRO| SUBR)) 
	(COMMENT **FASL** 1254. (LAP SPACES SUBR)) 
	(COMMENT **FASL** 1271. (LAP |NORMALIZE-CONNECTIVE MACRO| SUBR)) 
	(COMMENT **FASL** 1316. (LAP LINTYPE SUBR)) 
	(COMMENT **FASL** 1476. (LAP ENCODE-LINFORMULA SUBR)) 
	(COMMENT **FASL** 1486. (LAP |SETUPQUANTS MACRO| SUBR)) 
	(COMMENT **FASL** 1535. (LAP |ORDER-PATHKEYS MACRO| SUBR)) 
(COMMENT ****  (NEWMATRIX) Unused LAMBDA variables in function ENCODE-LINFORMULA-S)
	(COMMENT **FASL** 1561. (LAP ENCODE-LINFORMULA-S SUBR)) 
	(COMMENT **FASL** 1806. (LAP TRANSFORM-ROLELINKS SUBR)) 
	(COMMENT **FASL** 1868. (LAP |NORMALIZE-DETERMINER MACRO| SUBR)) 
	(COMMENT **FASL** 1915. (LAP ENCODE-QUANT SUBR)) 
	(COMMENT **FASL** 2103. (LAP VARIABLE-RANGE SUBR)) 
	(COMMENT **FASL** 2139. (LAP GETFORMULA SUBR)) 
	(COMMENT **FASL** 2166. (LAP LT-TYPE SUBR)) 
	(COMMENT **FASL** 2343. (LAP DISPLAY LSUBR)) 
	(COMMENT **FASL** 2364. (LAP DPYLIST SUBR)) 
	(COMMENT **FASL** 2381. (LAP VNSUBLIS SUBR)) 
	(COMMENT **FASL** 2408. (LAP |INITIALIZE-GENVARINDEX MACRO| SUBR)) 
	(COMMENT **FASL** 2417. (LAP GENVAR LSUBR)) 
	(COMMENT **FASL** 2550. (LAP |TERMSORT-VARANGE MACRO| SUBR)) 
	(COMMENT **FASL** 2581. (LAP MAKE-QVLIST SUBR)) 
	(COMMENT **FASL** 2769. (LAP |UNARY-ATOMIC MACRO| SUBR)) 
	(COMMENT **FASL** 2816. (LAP |NOPAREN-DISJUNCT MACRO| SUBR)) 
	(COMMENT **FASL** 2825. (LAP |DPYLIST-ROLINK MACRO| SUBR)) 
	(COMMENT **FASL** 2893. (LAP |MAKE-↑↓-[-ATOM MACRO| SUBR)) 
	(COMMENT **FASL** 2925. (LAP DPYLIST-S SUBR)) 
	(COMMENT **FASL** 3491. (LAP TCONC SUBR)) 
	(COMMENT **FASL** 3522. (LAP LCONC SUBR)) 
	(COMMENT **FASL** 3560. (LAP TERMSORT SUBR)) 
	(COMMENT **FASL** 3659. (LAP NORMALIZE-TERMSORTEXPR SUBR)) 
	(COMMENT **FASL** 3703. (LAP |PRINCLIST MACRO| SUBR)) 
	(COMMENT **FASL** 3730. (LAP |PRINSOURCECHUNK MACRO| SUBR)) 
	(COMMENT **FASL** 3739. (LAP |GETSBQLINE MACRO| SUBR)) 
	(COMMENT **FASL** 3814. (LAP |NEXTITEMSIZE MACRO| SUBR)) 
	(COMMENT **FASL** 3842. (LAP |PRINITEMS MACRO| SUBR)) 
	(COMMENT **FASL** 3906. (LAP |PRINSUBQUANT1 MACRO| SUBR)) 
	(COMMENT **FASL** 3939. (LAP |PRINSUBQUANT2 MACRO| SUBR)) 
	(COMMENT **FASL** 3972. (LAP |GETQUANTLINE MACRO| SUBR)) 
	(COMMENT **FASL** 4023. (LAP |GETλ-LINE MACRO| SUBR)) 
	(COMMENT **FASL** 4072. (LAP |MAXVARIABLENGTH MACRO| SUBR)) 
	(COMMENT **FASL** 4107. (LAP |SPACELEFT MACRO| SUBR)) 
	(COMMENT **FASL** 4116. (LAP STRAIGHTPRIN SUBR)) 
	(COMMENT **FASL** 4380. (LAP PRINQUANT SUBR)) 
	(COMMENT **FASL** 4657. (LAP PRINλ-EXPR SUBR)) 
	(COMMENT **FASL** 4708. (LAP TAB SUBR)) 
	(COMMENT **FASL** 4738. (LAP CURRENTPOS LSUBR)) 
'LINK-NODE 
'LEAF-NODE 
'LTCC-PLIST 
	(COMMENT **FASL** 4754. (LAP NRML-ANL-YZE-LINFORMULA LSUBR)) 
	(COMMENT **FASL** 4792. (LAP |NRML-ANL-YZE MACRO| SUBR)) 
	(COMMENT **FASL** 4845. (LAP |LT-CONCEPT-TYPE MACRO| SUBR)) 
	(COMMENT **FASL** 4896. (LAP |ADD-NEWLINK MACRO| SUBR)) 
	(COMMENT **FASL** 4944. (LAP |YH-UNITNAME MACRO| SUBR)) 
	(COMMENT **FASL** 4972. (LAP NORMALIZE-CMPD-CONCEPT LSUBR)) 
	(COMMENT **FASL** 5071. (LAP INITIALIZE-CMPD-CONCEPT SUBR)) 
	(COMMENT **FASL** 5141. (LAP |CONCEPT-BODY MACRO| SUBR)) 
	(COMMENT **FASL** 5184. (LAP |1ST-PROCESS-↑-MATRIX MACRO| SUBR)) 
	(COMMENT **FASL** 5240. (LAP |PROCESS-↑-MATRIX MACRO| SUBR)) 
	(COMMENT **FASL** 5294. (LAP |COLLECT-IMAGES MACRO| SUBR)) 
	(COMMENT **FASL** 5350. (LAP |MERGED-PKLS MACRO| SUBR)) 
	(COMMENT **FASL** 5377. (LAP |SETUP-λ-EXPR MACRO| SUBR)) 
	(COMMENT **FASL** 5445. (LAP |PREVIOUS-LETTER MACRO| SUBR)) 
	(COMMENT **FASL** 5478. (LAP |ANALYZE-ADVERBIALIZATION MACRO| SUBR)) 
	(COMMENT **FASL** 5545. (LAP |INST-KEYS MACRO| SUBR)) 
	(COMMENT **FASL** 5607. (LAP |[MRS,LSP]ATC.LSP←1.| SUBR)) 
	(COMMENT **FASL** 5758. (LAP ORDER-JUNCTS SUBR)) 
	(COMMENT **FASL** 5763. (LAP |GET-PKL-POSITION MACRO| SUBR)) 
	(COMMENT **FASL** 5834. (LAP |GET-Q-OP MACRO| SUBR)) 
	(COMMENT **FASL** 5891. (LAP |↑-ASCII MACRO| SUBR)) 
	(COMMENT **FASL** 5918. (LAP |λ-ASCII MACRO| SUBR)) 
	(COMMENT **FASL** 5945. (LAP |*-OR-↑-ASCII MACRO| SUBR)) 
	(COMMENT **FASL** 5971. (LAP |*-OR-C-ASCII MACRO| SUBR)) 
	(COMMENT **FASL** 5997. (LAP |C-ASCII MACRO| SUBR)) 
	(COMMENT **FASL** 6024. (LAP |2:9-ASCII MACRO| SUBR)) 
	(COMMENT **FASL** 6061. (LAP |NUMERAL-ASCII MACRO| SUBR)) 
	(COMMENT **FASL** 6098. (LAP |λ↑-RAISE-CC-OP MACRO| SUBR)) 
	(COMMENT **FASL** 6131. (LAP |RAISE-CC MACRO| SUBR)) 
	(COMMENT **FASL** 6187. (LAP |RAISE-CC-OP MACRO| SUBR)) 
	(COMMENT **FASL** 6220. (LAP |GET-BASE-OP MACRO| SUBR)) 
	(COMMENT **FASL** 6268. (LAP |GET-S&S-KEY MACRO| SUBR)) 
	(COMMENT **FASL** 6324. (LAP NORMRAISE-CC LSUBR)) 
	(COMMENT **FASL** 6833. (LAP QV-QUASI-UNSUBST LSUBR)) 
	(COMMENT **FASL** 7076. (LAP ANALYZE-CMPD-CONCEPT LSUBR)) 
	(COMMENT **FASL** 8528. (LAP NACC LSUBR)) 
	(COMMENT **FASL** 8570. (LAP |GET-PK-POSITION MACRO| SUBR)) 
	(COMMENT **FASL** 8613. (LAP |GET-MERGEKEYS MACRO| SUBR)) 
	(COMMENT **FASL** 8669. (LAP |EXPAND-MERGED-PKEYLISTS MACRO| SUBR)) 
	(COMMENT **FASL** 8726. (LAP ANALYZE-ROLEMERGE SUBR)) 
	(COMMENT **FASL** 8914. (LAP ATOM-CONVERTIBLE SUBR)) 
	(COMMENT **FASL** 8964. (LAP ADJUST-λ-TERMSORT SUBR)) 
	(COMMENT **FASL** 8994. (LAP COMMON-SUBSORT* SUBR)) 
	(COMMENT **FASL** 9038. (LAP SUPERSORT* SUBR)) 
	(COMMENT **FASL** 9175. (LAP |MAKE-↑-MARKER MACRO| SUBR)) 
	(COMMENT **FASL** 9238. (LAP PATHKEY-SORT SUBR)) 
	(COMMENT **FASL** 9379. (LAP GET-ROLELINK SUBR)) 
	(COMMENT **FASL** 9412. (LAP |ALPHA-NTH MACRO| SUBR)) 
	(COMMENT **FASL** 9457. (LAP TERM-SUBRANCH SUBR)) 
	(COMMENT **FASL** 9522. (LAP |ANY-IDENTICAL-ROLE-INSTANCES? MACRO| SUBR)) 
	(COMMENT **FASL** 9574. (LAP |HAS-UNIQUE-ROLEMARKS MACRO| SUBR)) 
	(COMMENT **FASL** 9633. (LAP |INDEX-TYPE MACRO| SUBR)) 
	(COMMENT **FASL** 9679. (LAP COPYALLCONS SUBR)) 
	(COMMENT **FASL** 9695. (LAP COPY-1-1-PKLS SUBR)) 
	(COMMENT **FASL** 9732. (LAP LT-COPYALL SUBR)) 
	(COMMENT **FASL** 9739. (LAP LT-COPYALL* SUBR)) 
	(COMMENT **FASL** 9902. (LAP SELECT&SHORTEN SUBR)) 
	(COMMENT **FASL** 9967. (LAP |[MRS,LSP]ATC.LSP←2.| SUBR)) 
	(COMMENT **FASL** 9972. (LAP ORDER-PATHKEYLISTS SUBR)) 
	(COMMENT **FASL** 9974. (LAP ORDER-ROLELINKS SUBR)) 
	(COMMENT **FASL** 9985. (LAP COMPARE-ROLEORDER SUBR)) 
	(COMMENT **FASL** 9991. (LAP CULL-EQS SUBR)) 
	(COMMENT **FASL** 10010. (LAP |CONDENSE-RL-KEYLISTS MACRO| SUBR)) 
	(COMMENT **FASL** 10049. (LAP |ATOM-QUASI-UNSUBST MACRO| SUBR)) 
	(COMMENT **FASL** 10107. (LAP ANALYZE-INSTANTIATION SUBR)) 
	(COMMENT **FASL** 10454. (LAP λ-UNSUBST LSUBR)) 
	(COMMENT **FASL** 10550. (LAP |CC-KEY-ROLINK-NUMBER MACRO| SUBR)) 
	(COMMENT **FASL** 10601. (LAP |INITSTR= MACRO| SUBR)) 
	(COMMENT **FASL** 10654. (LAP λ-INST-KEY SUBR)) 
	(COMMENT **FASL** 10730. (LAP RAISEATOM SUBR)) 
	(COMMENT **FASL** 10779. (LAP GET-↑-MARKER SUBR)) 
	(COMMENT **FASL** 10820. (LAP GET-↑-TALLY SUBR)) 
	(COMMENT **FASL** 10938. (LAP LOWER-↑-ATOM SUBR)) 
	(COMMENT **FASL** 10986. (LAP LOWER-λ-TERMSORTS SUBR)) 
	(COMMENT **FASL** 11027. (LAP RAISE-λ-TERMSORTS SUBR)) 
	(COMMENT **FASL** 11065. (LAP RAISE↑-TERM SUBR)) 
	(COMMENT **FASL** 11102. (LAP |NEXTLETTER MACRO| SUBR)) 
	(COMMENT **FASL** 11135. (LAP KEYNUMBER SUBR)) 
	(COMMENT **FASL** 11157. (LAP |LISTCOMPS MACRO| SUBR)) 
	(COMMENT **FASL** 11189. (LAP |EXPOUND-ANALYSIS-MODULE-1 MACRO| SUBR)) 
	(COMMENT **FASL** 11306. (LAP POSPRINC LSUBR)) 
	(COMMENT **FASL** 11373. (LAP ANALYZE&EXPOUND LSUBR)) 
	(COMMENT **FASL** 11681. (LAP A&E LSUBR)) 
	(COMMENT **FASL** 11704. (LAP FIX-AL SUBR)) 
	(COMMENT **FASL** 11748. (LAP EXPOUND-ANALYSIS-MODULE-2 SUBR)) 
	(COMMENT **FASL** 11916. (LAP EXPLORE-DNET LSUBR)) 
	(COMMENT **FASL** 12094. (LAP XPDN LSUBR)) 
	(COMMENT **FASL** 12118. (LAP GET-XPDN-COMMAND SUBR)) 
	(COMMENT **FASL** 12122. (LAP TRAVERSE-LINKS SUBR)) 
	(COMMENT **FASL** 12322. (LAP DISPLAY-KEYPATH SUBR)) 
	(COMMENT **FASL** 12411. (LAP DISPLAY-NODE SUBR)) 
	(COMMENT **FASL** 12538. (LAP EXTEND-CURRENT-KEYPATH SUBR)) 
	(COMMENT **FASL** 12598. (LAP SHORTEN-CURRENT-NODEPATH SUBR)) 
	(COMMENT **FASL** 12774. (LAP COUNT-LINKS&LEAVES SUBR)) 
	(COMMENT **FASL** 12853. (LAP PRINT-PROPERTIES SUBR)) 
'HELP-TABLE-ENTRY 
	(COMMENT **FASL** 13115. (LAP XPDN-HELP SUBR)) 
(COMMENT ****  (π-GET π-PUTPROP π-MAKE-UNIT EM:ECOMMANDS) 
		have been used but remain undefined in this file)
	(COMMENT **FASL** TOTAL =  13225. WORDS)